Hacker's Arsenal - The Cutting Edge of Hacking/Hacker's Arsenal - The Cutting Edge of Hacking.iso/files/irc/scripts/decode.irc

Text File | 2002-01-31 | 6.1 KB | 227 lines

^set novice off
^set exec_protection off
clear
echo *** Loading Global Decryption Script
echo *** Mail unsupported encryptions to [e-mail]

alias newenc @ function_return = [$encode($flip($encode($0-)))]
alias newdec @ function_return = [$decode($flip($decode($0-)))]
alias olddec @ function_return = [$decode($decode($0-))]
alias oldenc @ function_return = [$encode($encode($0-))]

alias flip {
 @ str = [ $*]
 @ str.end = [$@str]
 @ rev.str = []
 while (str.end > 0) {
  @ rev.str = [$rev.str]##[$mid($str.end 1 $str)]
  @ str.end = str.end - 1
 }
 @ function_return = [$rev.str]
 ^assign -str;^assign -rev.str;^assign -str.end
}
# LCM v1.0 - Encoding and decoding of messages. by SrFrog based on MORSE
@ lcm.in = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890./,]
@ lcm.out =[zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/98765432.01,]
@ lcmflg = [DEF]

alias lcmn @ function_return = [$encode($flip($clean($0-)))]
alias lcm {
 @ line = [$*]
 @ len = [$@line]
 @ new = []
 @ cnt = 0
 while (cnt <= len) {
   @ ind = index($mid($cnt 1 $line) $lcm.in)
   if (ind > -1)
    {@ new = new ## mid($ind 1 $lcm.out)}
    {@ new = new ## mid($cnt 1 $line)}
   @ cnt = cnt + 1
 }
 @ function_return = [$new]
 ^assign -cnt ;^assign -new ;^assign -ind ;^assign -line;^assign -len
}

### venom.irc

alias rem_v {
@ _pattern = rmatch($0 $1-) - 1
if (_pattern != -1) {@ function_return = notv($_pattern $1-)}
{@ function_return = [$1-]}
}
alias notv {
if ([$0]) {@ _pad = [ ]}
{@ _pad = []}
@ _words = [$1-]
@ function_return = [$leftw($0 $1-)] ## [$_pad] ## [$restw(${[$0]+1} $1-)]
}
alias leftw {@ function_return = [$(1-$0)]}
alias restw {@ function_return = [$(${[$0]+1}-)]}

@ venomcode.in = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890./,]
@ venomcode.out = [DEFGHIJKLMNOPQRSTUVWXYZABCxyzabcdefghijklmnopqrstuvw214365,/09.87]
alias venomcode {
    @ r3.line = [$*]
    @ r3.len = @r3.line
    @ r3.new = []
    @ r3.cnt = 0
    while (r3.cnt < r3.len)
    {
        @ r3.ind = index($mid($r3.cnt 1 $r3.line) $venomcode.in)
        if (r3.ind > -1)
        {
            @r3.new = r3.new ## mid($r3.ind 1 $venomcode.out)
        }
        {
            @r3.new = r3.new ## mid($r3.cnt 1 $r3.line)
        }
        @r3.cnt = r3.cnt + 1
    }
    @ function_return = r3.new
    ^assign -r3.cnt ;^assign -r3.new ;^assign -r3.ind ;^assign -r3.line
    ^assign -r3.len
}
### end venom.irc

### dismorse.irc
@ discus.in = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890./,]
@ discus.out = [DEFGHIJKLMNOPQRSTUVWXYZABCxyzabcdefghijklmnopqrstuvw214365,/09.87]
alias discus {
    @ r3.line = [$*]
    @ r3.len = @r3.line
    @ r3.new = []
    @ r3.cnt = 0
    while (r3.cnt < r3.len)
    {
        @ r3.ind = index($mid($r3.cnt 1 $r3.line) $discus.in)
        if (r3.ind > -1)
        {
            @r3.new = r3.new ## mid($r3.ind 1 $discus.out)
        }
        {
            @r3.new = r3.new ## mid($r3.cnt 1 $r3.line)
        }
        @r3.cnt = r3.cnt + 1
    }
    @ function_return = r3.new
    ^assign -r3.cnt ;^assign -r3.new ;^assign -r3.ind ;^assign -r3.line
    ^assign -r3.len
}

echo  - Aliases & Assignments
sleep 1

alias lice {
 /echo *E* LiCe: $0-
 /eval quote PRIVMSG $newch : $encode($flip($0-))
}

^on ^public "* * *" {
 ^assign type LiCe Script
 /echo *** $type
 /eval echo <$0\> $flip($clean($decode($3)))
}
echo  - LiCe Decryption Loaded
sleep 1

alias night {
 /echo *E* Night: $0-
 /eval quote PRIVMSG $newch :<N> $encode($0-) <N>
}
^on ^public "* * <N>*" {
 ^assign code $decode($3)
 ^assign type Night Script
 /echo *** $type
 /eval echo <$0\> $code
}
echo  - Night Decryption Loaded
sleep 1

alias sec1 {
 /echo *E* MegaFred(new): $0-
 /eval quote PRIVMSG $newch :[ENCRYPTED] $newenc($0-)
}
^on ^PUBLIC "% % [ENCRYPTED]*" {
 ^assign code $newdec($3)
 ^assign type MegaFred Script (new)
 /echo *** $type
 /eval echo <$0\> $code
}
echo  - MegaFred Decryption "A" Loaded
sleep 1

alias sec2 {
 /echo *E* MegaFred(old): $0-
 /eval quote PRIVMSG $newch :[ENCRYPTED] $oldenc($0-)
}
^on ^PUBLIC "% % [ENCRYPTED]*" {
 ^assign code $olddec($3)
 ^assign type MegaFred Script (old)
 /echo *** $type
 /eval echo <$0\> $code
}
echo  - MegaFred Decryption "B" Loaded
sleep 1

alias tbox {
 /echo *E* TextBox: $0-
 /eval quote PRIVMSG $newch :$encode($0-)" fA -+ TEXT +-
}
^on ^PUBLIC "% % * ?? -+ TEXT +-" {
 ^assign code $decode($strip(: $left($index(" $2-) $2-)))
 ^assign type TextBox Script
 /echo *** $type
 /eval echo <$0\> $code
}
echo  - TextBox Decryption Loaded
sleep 1

alias venom {
 /echo *E* VeNoM: $0-
 /eval quote PRIVMSG $newch :$venomcode($0-) -<!VeNoM!>-
}
^on ^public "% % *-<!VeNoM!>-" {
 ^assign type VeNoM Script
 /echo *** $type
  @ mystr = [$2-]
  @ newstr = [$(${2 ## [-] ## mystr})]
  @ newstr = [$rem_v(-<!VeNoM!>- $newstr)]
  echo <$0\> $venomcode($newstr)
}
echo  - VeNoM Decryption Loaded
sleep 1

alias discus {
 /echo *E* DiSCUSS: $0-
 /eval quote PRIVMSG $newch :$discus($0-) - DiSCUS -
}
^on ^PUBLIC "% % *- DiSCUS -" {
 @ mystr = [$2-]
 @ newstr = [$(${2 ## [-] ## mystr})]
 ^assign code $discus($newstr)
 ^assign type DiSCUS Script
 /echo *** $type
 /eval echo <$0\> $code
}
echo  - DiSCUS Decryption Loaded
sleep 1

alias dhelp {
/echo ********* COMMAND HELP *************
/echo /NIGHT  <message> - Night Encryption
/echo /SEC1   <message> - MegaFred(new) Encryption
/echo /SEC2   <message> - MegaFred(old) Encryption
/echo /TBOX   <message> - TextBox Encryption
/echo /VENOM  <message> - VeNoM Encryption
/echo /DISCUS <message> - DiSCUS Encryption
/echo -------------------------------------
}
echo *** Finished Loading../DHELP for CMDS
^eval assign oldch $C
^eval assign newch $C\
^eval join $newch
^eval mode $newch +nst
^eval mode $newch -o $N
/eval join $oldch
on ^join "* $newch" /eval echo *** $0 Has loaded DeCODE Script